home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Electronic Devices / ProOne: Electronics - Electronic Devices.iso / cdbackup / progfile.sfs / ELECT332.EXE / 0 / RCDATA / TFORMPICKSTUDENT / TFORMPICKSTUDENT.txt
Encoding:
Text File  |  1998-04-23  |  4.1 KB  |  171 lines
  1. object FormPickStudent: TFormPickStudent
  2.   Left = 258
  3.   Top = 111
  4.   BorderStyle = bsDialog
  5.   Caption = 'Choose Your Name'
  6.   ClientHeight = 444
  7.   ClientWidth = 518
  8.   Color = clSilver
  9.   Font.Color = clBlack
  10.   Font.Height = -16
  11.   Font.Name = 'Arial'
  12.   Font.Style = []
  13.   PixelsPerInch = 120
  14.   Position = poScreenCenter
  15.   Scaled = False
  16.   ShowHint = True
  17.   OnActivate = FormOnActivate
  18.   OnCreate = PickOnCreate
  19.   OnDestroy = PickOnDestroy
  20.   TextHeight = 18
  21.   object Label1: TLabel
  22.     Left = 51
  23.     Top = 14
  24.     Width = 406
  25.     Height = 69
  26.     Alignment = taCenter
  27.     AutoSize = False
  28.     Caption = 
  29.       'Please choose your entry from the list below .   Select by highl' +
  30.       'ighting or clicking on your entry, then "Select Current"'
  31.     Font.Color = clBlack
  32.     Font.Height = -17
  33.     Font.Name = 'Arial'
  34.     Font.Style = [fsBold]
  35.     ParentFont = False
  36.     WordWrap = True
  37.   end
  38.   object GroupBox1: TGroupBox
  39.     Left = 23
  40.     Top = 90
  41.     Width = 468
  42.     Height = 75
  43.     Caption = 'Sort Order:'
  44.     Font.Color = clBlack
  45.     Font.Height = -17
  46.     Font.Name = 'Arial'
  47.     Font.Style = [fsBold]
  48.     ParentFont = False
  49.     TabOrder = 1
  50.     object SpdBtnSortFirstLast: TSpeedButton
  51.       Left = 12
  52.       Top = 26
  53.       Width = 146
  54.       Height = 35
  55.       Hint = 'Show the names in First-Last name order'
  56.       GroupIndex = 111
  57.       Down = True
  58.       Caption = 'First-Last'
  59.       Font.Color = clBlack
  60.       Font.Height = -17
  61.       Font.Name = 'Arial'
  62.       Font.Style = [fsBold]
  63.       ParentFont = False
  64.       OnClick = ClkSortOrder
  65.       OnMouseDown = ButtonOnMouseDown
  66.     end
  67.     object SpdBtnSortLastFirst: TSpeedButton
  68.       Left = 162
  69.       Top = 26
  70.       Width = 145
  71.       Height = 35
  72.       Hint = 'Show the list in Last-First name order'
  73.       GroupIndex = 111
  74.       Caption = 'Last-First'
  75.       Font.Color = clBlack
  76.       Font.Height = -17
  77.       Font.Name = 'Arial'
  78.       Font.Style = [fsBold]
  79.       ParentFont = False
  80.       OnClick = ClkSortOrder
  81.       OnMouseDown = ButtonOnMouseDown
  82.     end
  83.     object SpdBtnSortStudentNum: TSpeedButton
  84.       Left = 312
  85.       Top = 26
  86.       Width = 145
  87.       Height = 35
  88.       Hint = 'Show the list in Student Number order'
  89.       GroupIndex = 111
  90.       Caption = 'Student Number'
  91.       Font.Color = clBlack
  92.       Font.Height = -17
  93.       Font.Name = 'Arial'
  94.       Font.Style = [fsBold]
  95.       ParentFont = False
  96.       OnClick = ClkSortOrder
  97.       OnMouseDown = ButtonOnMouseDown
  98.     end
  99.   end
  100.   object BtnSelectCurrent: TButton
  101.     Left = 7
  102.     Top = 386
  103.     Width = 157
  104.     Height = 40
  105.     Hint = 'Selects the currently highlighted information'
  106.     Caption = 'Select Current'
  107.     Default = True
  108.     Font.Color = clBlack
  109.     Font.Height = -17
  110.     Font.Name = 'Arial'
  111.     Font.Style = [fsBold]
  112.     ParentFont = False
  113.     TabOrder = 2
  114.     OnClick = ClkSelectCurrent
  115.     OnMouseDown = ButtonOnMouseDown
  116.   end
  117.   object BtnAddNew: TButton
  118.     Left = 172
  119.     Top = 386
  120.     Width = 158
  121.     Height = 40
  122.     Hint = 'Add new student information'
  123.     Caption = 'Add New Student'
  124.     Font.Color = clBlack
  125.     Font.Height = -17
  126.     Font.Name = 'Arial'
  127.     Font.Style = [fsBold]
  128.     ParentFont = False
  129.     TabOrder = 4
  130.     OnClick = ClkAddNew
  131.     OnMouseDown = ButtonOnMouseDown
  132.   end
  133.   object BtnCancel: TButton
  134.     Left = 335
  135.     Top = 386
  136.     Width = 158
  137.     Height = 40
  138.     Hint = 'Click here to use the "unknown" student records'
  139.     Cancel = True
  140.     Caption = 'Cancel'
  141.     Font.Color = clBlack
  142.     Font.Height = -17
  143.     Font.Name = 'Arial'
  144.     Font.Style = [fsBold]
  145.     ParentFont = False
  146.     TabOrder = 3
  147.     OnClick = ClkCancel
  148.     OnMouseDown = ButtonOnMouseDown
  149.   end
  150.   object DBGrid1: TDBGrid
  151.     Left = 7
  152.     Top = 178
  153.     Width = 495
  154.     Height = 193
  155.     Color = clWhite
  156.     Font.Color = clBlack
  157.     Font.Height = -17
  158.     Font.Name = 'Arial'
  159.     Font.Style = [fsBold]
  160.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  161.     ParentFont = False
  162.     ReadOnly = True
  163.     TabOrder = 0
  164.     TitleFont.Color = clBlack
  165.     TitleFont.Height = -15
  166.     TitleFont.Name = 'Arial'
  167.     TitleFont.Style = [fsBold, fsItalic]
  168.     OnDblClick = ClkSelectCurrent
  169.   end
  170. end
  171.